COMMENT ⊗   VALID 00016 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	input treebase
C00006 00003	def trunk=
C00008 00004	vardef branch.a=
C00009 00005	vardef branch.b=
C00011 00006	vardef branch.c=
C00013 00007	vardef branch.d=
C00015 00008	vardef branch.e=
C00017 00009	vardef branch.f=
C00019 00010	vardef branch.g=
C00021 00011	vardef branch.h=
C00023 00012	vardef branch.i=
C00025 00013	vardef branch.j=
C00027 00014	vardef branch.k=
C00029 00015	vardef branch.l=
C00031 00016	grid proofoffset (120,0) trunk "The bare trunk" next
C00035 ENDMK
C⊗;
input treebase;

vardef branch.l=
	z130=z0;
	z131=.5[z0,z132]+(2,-2);
	z132=(-22,610);
	z133=(-3,622);
	z134=(17,617);
	z135=.5[z134,z130]-(1,1);
	draw arc(130,131,132)&arc(132,133,134)&arc(134,135,130)&cycle;
	showit;
	labelrange(130,135);
enddef;

vardef branch.a=
	z11=(8,215);
	z12=(-35,175);
	z13=(-72,155);
	z14=(-75,130);
	z15=(-92,110);
	z16=(-95,88);
	z17=(-65,117);
	z18=(-54,104);
	z19=(10,151);
	z20=(35,142);
	z21=(42,130);
	z22=(60,123);
	z23=(76,124);
	z24=(62,146);
	z25=(26,180);
	draw arc(11,12,13)&wiggle(13,14,15,16)&arc(16,17,18)&
		arc(18,19,20)..arc(21,22,23)&wiggle(23,24,25,11)&cycle;
	showit;
	labelrange(11,25);
enddef;

trunk; shipit;
grid;
branch.a;
shipit;
clearit; numeric x[],y[];
trunk; shipit;
grid;
branch.l;
shipit;

end;

the.whole.tree;

end;
def trunk=
	z0=(0,660);
	z1=(-12,70); z2=(-28,-8);
	z3=(-16,-4); z4=(-10,-11);
	z5=(0,-5); z6=(14,-10);
	z7=(20,-6); z8=(29,-11);
	z9=(10,100);
	draw (z0..z1)..z2{curl 5}&arc(2,3,4)&arc(4,5,6)&arc(6,7,8)&
		z8{curl 4}..(z9..z0)&cycle;
	showit;
	autolabel(0,1,9);
	toplabel(3,5,7); botlabel(4,6);
	leftlabel(2); rightlabel(8);
enddef;	
vardef branch.a=
	z11=(8,215);
	z12=(-35,175);
	z13=(-72,155);
	z14=(-75,130);
	z15=(-92,110);
	z16=(-95,88);
	z17=(-65,117);
	z18=(-54,104);
	z19=(10,151);
	z20=(35,142);
	z21=(42,130);
	z22=(60,123);
	z23=(76,124);
	z24=(62,146);
	z25=(26,180);
	draw arc(11,12,13)&wiggle(13,14,15,16)&arc(16,17,18)&
		arc(18,19,20)..arc(21,22,23)&wiggle(23,24,25,11)&cycle;
	showit;
	labelrange(11,25);
enddef;
vardef branch.b=
	z30=(0,250);
	z31=(-25,220);
	z32=(-70,195);
	z33=(-78,180);
	z34=(-90,170);
	z35=(-5,188);
	z36=(74,183);
	z37=.5[z30,z36]-(3,3);
	draw arc(30,31,32)&arc(32,33,34)&arc(34,35,36)&arc(36,37,30)&cycle;
	showit;
	labelrange(30,37);
enddef;
vardef branch.c=
	z40=(8,262);
	z41=.5[z40,z42]+(2,-2);
	z42=(-55,240);
	z43=(-51,232);
	z44=(-53,220);
	z45=.5[z44,z46]+(-2,2);
	z46=(27,235);
	z47=.5[z46,z40]-(1,1);
	draw arc(40,41,42)&arc(42,43,44)&arc(44,45,46)&arc(46,47,40)&cycle;
	showit;
	labelrange(40,47);
enddef;
vardef branch.d=
	z50=(10,333);
	z51=(-15,290);
	z52=(-43,256);
	z53=z40;
	z54=(58,245);
	z55=.4[z54,z50]-(5,5);
	draw arc(50,51,52)&arc(52,53,54)&arc(54,55,50)&cycle;
	showit;
	labelrange(50,55);
enddef;
vardef branch.e=
	z60=(3,360);
	z61=(-20,330);
	z62=(-70,300);
	z63=(-100,266);
	z64=(-75,278);
	z65=(-60,266);
	z66=(0,310);
	z67=(50,275);
	z68=(45,310);
	draw wiggle(60,61,62,63)&arc(63,64,65)&arc(65,66,67)&arc(67,68,60)&cycle;
	showit;
	labelrange(60,68);
enddef;
vardef branch.f=
	z70=(0,400);
	z71=.5[z70,z72]+(2,-2);
	z72=(-30,350);
	z73=(0,358);
	z74=(30,350);
	z75=.5[z74,z70]-(2,2);
	draw arc(70,71,72)&arc(72,73,74)&arc(74,75,70)&cycle;
	showit;
	labelrange(70,75);
enddef;
vardef branch.g=
	z80=(5,420);
	z81=(-5,410);
	z82=(-50,375);
	z83=(-50,350);
	z84=(-25,375);
	z85=(18,375);
	z86=.5[z85,z80]-(2,2);
	draw wiggle(80,81,82,83)&arc(83,84,85)&arc(85,86,80)&cycle;
	showit;
	labelrange(80,86);
enddef;
vardef branch.h=
	z90=(-22,470);
	z91=(-23,435);
	z92=(-44,410);
	z93=(-10,421);
	z94=(35,420);
	z95=(15,455);
	draw arc(90,91,92)&arc(92,93,94)&arc(94,95,90)&cycle;
	showit;
	labelrange(90,95);
enddef;
vardef branch.i=
	z100=(0,509);
	z101=.5[z100,z102]+(2,-3);
	z102=(-32,481);
	z103=(-42,455);
	z104=(-62,430);
	z105=(-20,450);
	z106=(42,448);
	z107=(38,465);
	z108=.8[z106,z100]-(4,4);
	draw arc(100,101,102)&arc(102,103,104)&arc(104,105,106)&
		wiggle(106,107,108,100)&cycle;
	showit;
	labelrange(100,108);
enddef;
vardef branch.j=
	z110=(-1,570);
	z111=.5[z110,z112]+(3,-3);
	z112=(-40,535);
	z113=(-45,510);
	z114=(-60,477);
	z115=(-20,510);
	z116=(40,512);
	z117=.3[z116,z110]+(3,3);
	z118=.7[z116,z110]-(3,3);
	draw arc(110,111,112)&arc(112,113,114)&arc(114,115,116)&
		wiggle(116,117,118,110)&cycle;
	showit;
	labelrange(110,118);
enddef;
vardef branch.k=
	z120=(-1,616);
	z121=.4[z120,z123]+(2,-2);
	z122=.8[z120,z123]+(-3,3);
	z123=(-32,562);
	z124=(-10,577);
	z125=(30,570);
	z126=(10,590);
	draw wiggle(120,121,122,123)&arc(123,124,125)&arc(125,126,120)&cycle;
	showit;
	labelrange(120,126);
enddef;
vardef branch.l=
	z130=z0;
	z131=.5[z0,z132]+(2,-2);
	z132=(-22,610);
	z133=(-3,622);
	z134=(17,617);
	z135=.5[z134,z130]-(1,1);
	draw arc(130,131,132)&arc(132,133,134)&arc(134,135,130)&cycle;
	showit;
	labelrange(130,135);
enddef;
grid; proofoffset (120,0); trunk; "The bare trunk"; next;
grid; branch.a; "Bottom branch added"; next;
grid; branch.b; "Another branch"; next;
grid; branch.c; "Still another branch"; next;
grid; branch.d; "Yet another"; next;
grid; branch.e; "And another"; next;
grid; branch.f; next;
grid; branch.g; next;
grid; branch.h; next;
grid; branch.i; next;
grid; branch.j; next;
grid; branch.k; next;
grid; branch.l; "El Palo Alto"; next;
medallion; next;
end